home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / showlib.sirexx < prev    next >
Text File  |  1997-08-28  |  493b  |  29 lines
  1. /* Select the library list, show the specified library (opening the
  2.    More window
  3.  
  4.    Written by Eric Sauvageau.
  5.  
  6.    USAGE:  rx ShowLib.sirexx <library_name>
  7.  
  8.  */
  9.  
  10. options results
  11.  
  12. Parse Arg Library
  13. address 'INSPECTOR.1'
  14.  
  15. /* Display libraries */
  16. GetDisplay ; currentdisplay = result
  17. If currentdisplay ~= 5 Then SetDisplay 5
  18.  
  19. /* Select the specified library */
  20.  
  21. SelectNode Name Library ; error  = result
  22.  
  23. if error = "ERROR" then do
  24.    Say 'Cannot find '||Library||'!'
  25.    Exit 10
  26. End
  27.  
  28. OpenMore
  29.